10 CALL SCREEN(2)
20 CALL CLEAR
30 FOR C=1 TO 8
40 CALL COLOR(C,12,2)
50 NEXT C
60 PRINT "       HOL DIR DAS GOLD": : : : : :
70 PRINT "ANLEITUNG................": : : : : :
80 FOR J=1 TO 11
90 READ A,B,C
100 CALL SOUND(A,B,0,C,0)
110 NEXT J
120 DATA 125,262,131,125,294,131,250,156,131,250,131,147,250,262,131,100,262,131
130 DATA 100,294,123,100,311,131,100,392,131,100,294,131,100,311,131,200,131,262,
140 CALL SOUND(200,131,0,262,3,523,3)
150 FOR DELAY=1 TO 500
160 NEXT DELAY
170 CALL CLEAR
180 PRINT "HOL DIR DAS GOLD IST EIN": :"ABENTEUER, BEI DEM DER SPIELER": :"BESTIMMTE FRAGEN BEANTWORTEN MUSS": :
190 PRINT "ER STREIFT DURCH DIE": :"KAMMERN UND TUNNEL EINES": :"ZWEI-EBENEN-LABYRINTHS.": : : : : :
200 PRINT "DRUECKE EINE TASTE, UM FORTZUFAHREN...": :
210 CALL KEY(0,K,S)
220 IF S=0 THEN 210
230 CALL CLEAR
240 PRINT "DAS PROGRAMM"
250 PRINT "___ _______"
260 PRINT
270 PRINT "DU BEKOMMST 1,000 GOLD-":"STUECKE UND WIRST DANN":"IN DIE UNTERE EBENE EINES 128-":
280 PRINT "KAMMER, ZWEI-EBENEN-DUNGEONS":"(64 KAMMERN PRO EBENE).": :
290 PRINT "DEIN ZIEL IST ES, MIT":"SO VIEL GOLD WIE MOEGLICH ZU":"ENTKOMMEN. GOLDSTUECKE BEKOMMST DU":
300 PRINT "DURCH BEANTWORTUNG DER FRAGEN":"DER MONSTER, DIE DEN":"DUNGEON BEWOHNEN.": :
310 PRINT "JEDES MAL WENN EINE ANTWORT":"RICHTIG IST, WIRD GOLD ALS":"BELOHNUNG GEGEBEN. WENN DIE ANTWORT":
320 PRINT "FALSCH IST, WIRD GOLD":"ABGEZOGEN.": :
330 PRINT "DRUECKE EINE TASTE, UM FORTZUFAHREN..."
340 CALL KEY(0,K,S)
350 IF S=0 THEN 340
360 CALL CLEAR
370 PRINT "DIE FRAGE"
380 PRINT "___ ________"
390 PRINT
400 PRINT "DIE MONSTER WERDEN DIR": :"EINE BESONDERE FRAGE STELLEN,": :"WAEHREND DU DURCH DEN DUNGEON GEHST": :
410 PRINT "WO IST DAS GOLD?": : :"HINWEIS: WO WUERDEST DU": :"1,000 GOLDSTUECKE HINLEGEN, WENN DU": :
420 PRINT "SIE TRAGEN WUERDEST?": : : :"DRUECKE EINE TASTE, UM FORTZUFAHREN..."
430 CALL KEY(0,K,S)
440 IF S=0 THEN 430
450 CALL CLEAR
460 PRINT "ZUEGE"
470 PRINT "_____"
480 PRINT
490 PRINT "WAEHREND DU DICH DURCH DEN":"DUNGEON BEWEGST, WIRST DU":"MONSTER, DIEBE, LEERE":
500 PRINT "KAMMERN, FALLTUEREN, GEHEIM-":"TUEREN IN NORD-SUED UND OST-":"WEST-TUNNELN":
510 PRINT "UND SUPER-SCHLUESSEL FINDEN.": :"UM DICH ZU BEWEGEN, GIB DEN":"BUCHSTABEN IN KLAMMERN FUER DEN":"GEWUENSCHTEN ZUG ODER DIE AKTION EIN:": :
520 PRINT "1- (N)ORDEN   2- (O)ST":"3- (S)UEDEN   4- (W)ESTEN":"5- (Q)UIT [SPIEL BEENDEN]":
530 PRINT "6- (G)OLD [ZEIGT GOLDSTAND]":"7- (U)P  [BEI TREPPEN BENUTZT]": :
540 PRINT "DRUECKE EINE TASTE, UM FORTZUFAHREN..."
550 PRINT
560 CALL KEY(0,K,S)
570 IF S=0 THEN 560
580 CALL CLEAR
590 PRINT "SPIELBEWERTUNG"
600 PRINT "____ ______"
610 PRINT
620 PRINT "NACHDEM DU DAS SPIEL BEENDET HAST,":"WIRD EINE SPIELBEWERTUNG ANGEZEIGT,":"ZUSAMMEN MIT DER ANZAHL DER":
630 PRINT "ERHALTENEN GOLDSTUECKE UND":"DER ANZAHL DER ZUEGE, DIE DU":"BRAUCHTEST, UM HERAUSZUFINDEN.": :
640 PRINT "DIE BEWERTUNG LIEGT IRGENDWO":"ZWISCHEN -500 UND +1000. JE":"HOEHER DIE ZAHL, DESTO":
650 PRINT "BESSER DIE BEWERTUNG. EINE":"NEGATIVE ZAHL ZEIGT EINE":"SCHLECHTE BEWERTUNG AN.": : : :"VIEL GLUECK!": : :
660 PRINT "DRUECKE ENTER................"
670 CALL KEY(0,K,S)
680 IF S=0 THEN 670
690 CALL CLEAR
700 PRINT "ZU SPIELEN:": :"    TIPPE NEW, DANN OLD CS1": : : : : : : : : :
710 FOR DELAY=1 TO 1500
720 NEXT DELAY
